Yellows - Privacy (Deluxe)/Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso/mono/e.dxr/00068.ls

Text File | 1996-07-06 | 11.0 KB | 367 lines

global amonopict, bmonopict, cmonopict, apictlist, bpictlist, cpictlist, textnum, textlist, spnumlist, changelist, layoutnum, vspritelist, mode, captionmode, keydetect, event

on startMovie
  inits()
  init()
end

on inits
  set amonopict to 8
  set bmonopict to 10
  set cmonopict to 9
  set textnum to 7
  set apictlist to []
  set bpictlist to []
  set cpictlist to []
  set textlist to []
  set vspritelist to []
  repeat with i = 1 to amonopict
    add(apictlist, i)
  end repeat
  repeat with i = 1 to bmonopict
    add(bpictlist, i)
  end repeat
  repeat with i = 1 to cmonopict
    add(cpictlist, i)
  end repeat
  repeat with i = 1 to textnum
    add(textlist, i)
  end repeat
  puppetSprite(3, 1)
  set the ink of sprite 3 to 0
  set the type of sprite 3 to 1
  set the foreColor of sprite 3 to 255
  set the backColor of sprite 3 to 0
  set the locH of sprite 3 to 429
  set the locV of sprite 3 to 240
  repeat with i = 10 to 12
    puppetSprite(i, 1)
    set the ink of sprite i to 0
    set the type of sprite i to 1
    set the foreColor of sprite i to 255
    set the backColor of sprite i to 0
    set the visible of sprite i to 0
  end repeat
end

on initlista
  repeat with i = 1 to amonopict
    add(apictlist, i)
  end repeat
end

on initlistb
  repeat with i = 1 to bmonopict
    add(bpictlist, i)
  end repeat
end

on initlistc
  repeat with i = 1 to cmonopict
    add(cpictlist, i)
  end repeat
end

on inittext
  repeat with i = 1 to textnum
    add(textlist, i)
  end repeat
end

on settext
  set text to getAt(textlist, random(count(textlist)))
  deleteAt(textlist, getPos(textlist, text))
  puppetSprite(9, 1)
  set the ink of sprite 9 to 0
  set the type of sprite 9 to 1
  set the foreColor of sprite 9 to 255
  set the backColor of sprite 9 to 0
  set the castNum of sprite 9 to the number of member ("text" & text & captionmode)
  set the locH of sprite 9 to 109
  set the locV of sprite 9 to 240
end

on textchange
  judgelist()
  set text to getAt(textlist, random(count(textlist)))
  deleteAt(textlist, getPos(textlist, text))
  set the castNum of sprite 9 to the number of member ("text" & text & captionmode)
  set the locH of sprite 9 to 109
  set the locV of sprite 9 to 240
  updateStage()
end

on layout1
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  if cpictlist = [] then
    initlistc()
    deleteAt(cpictlist, getPos(cpictlist, c1))
  end if
  set c2 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c2))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  set the castNum of sprite 10 to the number of member ("C" & c1)
  set the locH of sprite 10 to 359
  set the locV of sprite 10 to 128
  set the castNum of sprite 11 to the number of member ("B" & b1)
  set the locH of sprite 11 to 556
  set the locV of sprite 11 to 329
  set the castNum of sprite 12 to the number of member ("C" & c2)
  set the locH of sprite 12 to 331
  set the locV of sprite 12 to 333
end

on layout2
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  if cpictlist = [] then
    initlistc()
    deleteAt(cpictlist, getPos(cpictlist, c1))
  end if
  set c2 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c2))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  set the castNum of sprite 10 to the number of member ("C" & c1)
  set the locH of sprite 10 to 331
  set the locV of sprite 10 to 148
  set the castNum of sprite 12 to the number of member ("B" & b1)
  set the locH of sprite 12 to 555
  set the locV of sprite 12 to 152
  set the castNum of sprite 11 to the number of member ("C" & c2)
  set the locH of sprite 11 to 358
  set the locV of sprite 11 to 353
end

on layout3
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  judgelist()
  set a1 to getAt(apictlist, random(count(apictlist)))
  deleteAt(apictlist, getPos(apictlist, a1))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  set the castNum of sprite 10 to the number of member ("C" & c1)
  set the locH of sprite 10 to 331
  set the locV of sprite 10 to 88
  set the castNum of sprite 11 to the number of member ("B" & b1)
  set the locH of sprite 11 to 331
  set the locV of sprite 11 to 318
  set the castNum of sprite 12 to the number of member ("A" & a1)
  set the locH of sprite 12 to 541
  set the locV of sprite 12 to 328
end

on layout4
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  judgelist()
  set a1 to getAt(apictlist, random(count(apictlist)))
  deleteAt(apictlist, getPos(apictlist, a1))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  set the castNum of sprite 10 to the number of member ("C" & c1)
  set the locH of sprite 10 to 331
  set the locV of sprite 10 to 391
  set the castNum of sprite 11 to the number of member ("B" & b1)
  set the locH of sprite 11 to 331
  set the locV of sprite 11 to 162
  set the castNum of sprite 12 to the number of member ("A" & a1)
  set the locH of sprite 12 to 542
  set the locV of sprite 12 to 151
end

on layout5
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  if bpictlist = [] then
    initlistb()
    deleteAt(bpictlist, getPos(bpictlist, b1))
  end if
  set b2 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b2))
  set the castNum of sprite 10 to the number of member ("B" & b1)
  set the locH of sprite 10 to 303
  set the locV of sprite 10 to 113
  set the castNum of sprite 11 to the number of member ("B" & b2)
  set the locH of sprite 11 to 331
  set the locV of sprite 11 to 367
  set the castNum of sprite 12 to the number of member ("C" & c1)
  set the locH of sprite 12 to 528
  set the locV of sprite 12 to 165
end

on layout6
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  if bpictlist = [] then
    initlistb()
    deleteAt(bpictlist, getPos(bpictlist, b1))
  end if
  set b2 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b2))
  set the castNum of sprite 10 to the number of member ("B" & b1)
  set the locH of sprite 10 to 331
  set the locV of sprite 10 to 113
  set the castNum of sprite 11 to the number of member ("B" & b2)
  set the locH of sprite 11 to 303
  set the locV of sprite 11 to 367
  set the castNum of sprite 12 to the number of member ("C" & c1)
  set the locH of sprite 12 to 528
  set the locV of sprite 12 to 314
end

on layout7
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set c1 to getAt(cpictlist, random(count(cpictlist)))
  deleteAt(cpictlist, getPos(cpictlist, c1))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  if bpictlist = [] then
    initlistb()
    deleteAt(bpictlist, getPos(bpictlist, b1))
  end if
  set b2 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b2))
  set the castNum of sprite 10 to the number of member ("B" & b1)
  set the locH of sprite 10 to 330
  set the locV of sprite 10 to 367
  set the castNum of sprite 11 to the number of member ("B" & b2)
  set the locH of sprite 11 to 528
  set the locV of sprite 11 to 340
  set the castNum of sprite 12 to the number of member ("C" & c1)
  set the locH of sprite 12 to 331
  set the locV of sprite 12 to 138
end

on layout8
  set spnumlist to [10, 11]
  set changelist to [10, 11]
  judgelist()
  set a1 to getAt(apictlist, random(count(apictlist)))
  deleteAt(apictlist, getPos(apictlist, a1))
  if apictlist = [] then
    initlista()
    deleteAt(apictlist, getPos(apictlist, a1))
  end if
  set a2 to getAt(apictlist, random(count(apictlist)))
  deleteAt(apictlist, getPos(apictlist, a2))
  set the castNum of sprite 10 to the number of member ("A" & a1)
  set the locH of sprite 10 to 316
  set the locV of sprite 10 to 179
  set the castNum of sprite 11 to the number of member ("A" & a2)
  set the locH of sprite 11 to 541
  set the locV of sprite 11 to 301
  set the visible of sprite 12 to 0
end

on layout9
  set spnumlist to [10, 11, 12]
  set changelist to [10, 11, 12]
  judgelist()
  set a1 to getAt(apictlist, random(count(apictlist)))
  deleteAt(apictlist, getPos(apictlist, a1))
  judgelist()
  set b1 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b1))
  if bpictlist = [] then
    initlistb()
    deleteAt(bpictlist, getPos(bpictlist, b1))
  end if
  set b2 to getAt(bpictlist, random(count(bpictlist)))
  deleteAt(bpictlist, getPos(bpictlist, b2))
  set the castNum of sprite 10 to the number of member ("A" & a1)
  set the locH of sprite 10 to 316
  set the locV of sprite 10 to 291
  set the castNum of sprite 11 to the number of member ("B" & b1)
  set the locH of sprite 11 to 528
  set the locV of sprite 11 to 113
  set the castNum of sprite 12 to the number of member ("B" & b2)
  set the locH of sprite 12 to 528
  set the locV of sprite 12 to 367
end

on judgelist
  if apictlist = [] then
    initlista()
  end if
  if bpictlist = [] then
    initlistb()
  end if
  if cpictlist = [] then
    initlistc()
  end if
  if textlist = [] then
    inittext()
  end if
end

on showsprite
  set a to random(count(spnumlist))
  if a = 1 then
    nothing()
  else
    set a to a - 1
  end if
  repeat with i = 1 to a
    set spnum to getAt(spnumlist, random(count(spnumlist)))
    deleteAt(spnumlist, getPos(spnumlist, spnum))
    add(vspritelist, spnum)
  end repeat
  repeat with i = 1 to count(vspritelist)
    set the visible of sprite getAt(vspritelist, i) to 1
  end repeat
end

on judgename castname
  judgelist()
  if castname = "A" then
    set castNum to getAt(apictlist, random(count(apictlist)))
    deleteAt(apictlist, getPos(apictlist, castNum))
    return castNum
  end if
  if castname = "B" then
    set castNum to getAt(bpictlist, random(count(bpictlist)))
    deleteAt(bpictlist, getPos(bpictlist, castNum))
    return castNum
  end if
  if castname = "C" then
    set castNum to getAt(cpictlist, random(count(cpictlist)))
    deleteAt(cpictlist, getPos(cpictlist, castNum))
    return castNum
  end if
end